Libris Britannia 4/science library(b).zip/science library(b)/PROGRAMM/DB_CLIPP/0292.ZIP/GENEPROG.ARC/ONEOUT.PRG

Text File | 1985-12-21 | 5KB | 101 lines

*SUBROUTINE ONEOUT        5/2/1985                              ONEOUT
*
USE GENE INDEX FNINDX
CLEAR
  STORE "---------------------------------------------------" TO LN
  STORE "CHART: "          TO CHARTX
  STORE "DESCD: "          TO DESCX
  STORE "RESIDENCES     :" TO RESX
  STORE "BORN           :" TO DOBX
  STORE "DIED           :" TO DODX
  STORE "SPOUSE         :" TO SPOUSEX
  STORE "MOTHER         :" TO MOTHERX
  STORE "FATHER         :" TO FATHERX
  STORE "MARRIED        :" TO DMARX
  STORE "PLACE :"          TO PLACEX
  STORE "CHILDREN 1&6   :" TO CHILD1X
  STORE "         2&7   :" TO CHILD2X
  STORE "         3&8   :" TO CHILD3X
  STORE "         4&9   :" TO CHILD4X
  STORE "         5&10  :" TO CHILD5X
  STORE "SISTERS        :" TO SISTERSX
  STORE "BROTHERS       :" TO BROTHERSX
  STORE "OCCUPATION     :" TO OCCUPX
  STORE "NOTES     :" TO COMMX
  STORE "           " TO BLANK
  STORE "REFERENCES:" TO REFX
  STORE "UPDATED   :" TO UPDATEX
@ 10,8 SAY "ENTER EXTRA BLANK IF THERE IS NO MIDDLE NAME "
@ 11,1 SAY "   "
ACCEPT "        ENTER FIRST, MIDDLE AND LAST NAME OF SUBJECT: " TO FINDER
FIND &FINDER
CLEAR
SET DEVICE TO PRINT
  @  2,50 SAY FULNAME PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  @  4,10 SAY LN PICTURE "XXXXXXXXXXXXXXXXXXXX"
  @  4,30 SAY LN PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  @  6,10 SAY RESX PICTURE "XXXXXXXXXXXXXXXXX"
  @  6,28 SAY RESIDENCES PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  @  8,10 SAY DOBX PICTURE "XXXXXXXXXXXXXXXXXX"
  @  8,28 SAY DOB PICTURE "XXXXXXXXXX"
  @  8,42 SAY PLACEX PICTURE "XXXXXXX"
  @  8,50 SAY POB PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXX"
  @ 10,10 SAY DODX PICTURE "XXXXXXXXXXXXXXXX"
  @ 10,28 SAY DOD PICTURE "XXXXXXXXXX"
  @ 10,42 SAY PLACEX PICTURE "XXXXXXX"
  @ 10,50 SAY POD PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXX"
  @ 13,10 SAY SPOUSEX PICTURE "XXXXXXXXXXXXXXXXXX"
  @ 13,28 SAY SPOUSE PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  @ 15,10 SAY DMARX PICTURE "XXXXXXXXXXXXXXXXXX"
  @ 15,28 SAY DMAR PICTURE "XXXXXXXXXX"
  @ 15,42 SAY PLACEX PICTURE "XXXXXXX"
  @ 15,50 SAY PMAR PICTURE "XXXXXXXXXXXXXXXXXXXX"
  @ 18,10 SAY CHILD1X PICTURE "XXXXXXXXXXXXXXXXXX"
  @ 18,28 SAY CHILD1 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  @ 20,10 SAY CHILD2X PICTURE "XXXXXXXXXXXXXXXXXX"
  @ 20,28 SAY CHILD2 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  @ 22,10 SAY CHILD3X PICTURE "XXXXXXXXXXXXXXXXXX"
  @ 22,28 SAY CHILD3 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  @ 24,10 SAY CHILD4X PICTURE "XXXXXXXXXXXXXXXXXX"
  @ 24,28 SAY CHILD4 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  @ 26,10 SAY CHILD5X PICTURE "XXXXXXXXXXXXXXXXXX"
  @ 26,28 SAY CHILD5 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  @ 28,10 SAY LN PICTURE "XXXXXXXXXXXXXXXXXXXX"
  @ 28,30 SAY LN PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  @ 30,10 SAY MOTHERX PICTURE "XXXXXXXXXXXXXXXX"
  @ 30,28 SAY MOTHER PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  @ 32,10 SAY FATHERX PICTURE "XXXXXXXXXXXXXXXX"
  @ 32,28 SAY FATHER PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  @ 34,10 SAY SISTERSX PICTURE "XXXXXXXXXXXXXXXXXX"
  @ 34,28 SAY SISTERS PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  @ 36,10 SAY BROTHERSX PICTURE "XXXXXXXXXXXXXXXXXX"
  @ 36,28 SAY BROTHERS PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  @ 39,10 SAY OCCUPX PICTURE "XXXXXXXXXXXXXXXX"
  @ 39,28 SAY OCCUPATION PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  @ 41,10 SAY LN PICTURE "XXXXXXXXXXXXXXXXXXXX"
  @ 41,30 SAY LN PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  @ 43,10 SAY COMMX PICTURE "XXXXXXXXXXX"
  @ 43,22 SAY COMM1 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  @ 45,10 SAY BLANK PICTURE "XXXXXXXXXXX"
  @ 45,22 SAY COMM2 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  @ 47,10 SAY BLANK PICTURE "XXXXXXXXXXX"
  @ 47,22 SAY COMM3 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  @ 49,10 SAY BLANK PICTURE "XXXXXXXXXXX"
  @ 49,22 SAY COMM4 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  @ 51,10 SAY BLANK PICTURE "XXXXXXXXXXX"
  @ 51,22 SAY COMM5 PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  @ 53,10 SAY LN PICTURE "XXXXXXXXXXXXXXXXXXXX"
  @ 53,30 SAY LN PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  @ 55,10 SAY REFX PICTURE "XXXXXXXXXXX"
  @ 55,22 SAY REFERENCE PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
  @ 57,10 SAY UPDATEX PICTURE "XXXXXXXXXX"
  @ 57,21 SAY UPDATE PICTURE "XXXXXXXXXX"
  @ 57,32 SAY CHARTX PICTURE "XXXXXXX"
  @ 57,42 SAY CHART PICTURE "XXXXXXXXXX"
  @ 57,54 SAY DESCX PICTURE "XXXXXXX"
  @ 57,62 SAY DESCENDANT PICTURE "XXXXX"
  EJECT
SET DEVICE TO SCREEN
USE GENE INDEX SNINDX
RETURN
*END OF SUBROUTINE